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SECTION  1 
INTRODUCTION 


The  construction  of  the  CDM  Impact  Tool  requires 
precompiling  of  38  routines  for  the  purpose  of  discovering  the 
impacts,  storing  them  in  the  CDM  and  reporting  them  on  a 
screen  or  a  printer  device.  These  routines  have  been  grouped 
into  a  single  logical  unit  of  work.  These  modules  are  listed  in 
a  test  file.  After  precompilation,  the  following  steps  must  be 
executed  in  order  to  construct  the  CDM  Impact  executable: 

o  Generate  the  CDM  Impact  Request  Processor  Main  Program 

o  Compile  and  insert  into  the  object  library  (GENOLB)  the 
generated  CDM  Impact  Request  Processor  Main  Program 

o  Create  the  CDM  Impact  executable 

Section  2  lists  the  prerequisites  of  the  Impact  Environment. 
Section  3  of  this  document  lists  the  group  to  be  precompiled. 
Section  4  contains  the  step  by  step  instructions  of  building  CDM 
Impact. 
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SECTION  2 
PREREQUISITES 

The  Prerequisites  to  creating  the  IMPACT  ANALYSIS 

environment  are: 

1.  Existence  of  an  object  library  IMPAOLB  in  the  directory 
cdmdir: [tools. Impa]  for  the  Impact  software. 

2.  Existence  of  an  object  library  GENOLB  in  the  directory 
cdmdir: [tools. Impa]  for  the  generated  code. 

3.  Existence  of  a  a  FORMS  directory;  this  is  the  directory 
pointed  to  by  the  logical  IISSULIB. 

4.  All  the  software  must  be  compiled  and  placed  in  IMPAOLB 
according  to  normal  Integration  and  Testing  procedures. 

5.  The  NDDL  and  NDML  executables  must  be  available. 


« 
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SECTION  3 


DEFINE  THE  IMPACT  PRECOMPILE  GROUP 


This  section  contains  the  list  of  routines  to  be  precompiled 
as  a  single  logical  unit  of  work.  They  are  contained  in  the  files 
Impact. tst  and  Impact2.tst. 

Application  Name  -  Impact. tst/IMPACT2. tst 

ALGX 

ALLOTS 

ALLTAGS 

AUCX 

CATMEM 

CIINIT 

DBAREA 

DBMSDB 

DOMAUC 

DOMS 

ECAUC 

ECX 

FNDHSDB 

GETILUW 

GETTAG 

HOSTDB 

ICHKUN 

IGTPKC 

IMPACTX 

INSAPP 

INSCOM 

INSOBJ 

ISELHP 

IVERARA 

IVERATT 

IVERAUC 

IVERDB 

IVERDBM 

IVERDFD 

IVERDI 

IVERDOM 

IVEROT 

IVERENT 

IVERHST 

IVERKC 

IVERLUW 

IVEROAC 

IVERPSB 

IVERRC 

IVERRCC 

IVERRST 

IVERRT 

IVERSMD 

IVERVEW 

KCX 

LUWAPP 

MODUX 
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PSBDB 

RC 

TRACEX 

TRAUC 

TRDB 

TRDF 

TRDI 

TRRC 

TRRT 

TRSET 

TRUV 
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SECTION  4 

PROCEDURES  TO  BUILD  THE  CDM  IMPACT  EXECUTABLE 

The  following  steps  must  be  executed  to  construct  the  CDM 
Impact  executable: 

1.  Create  the  Oracle  Impact  tables  in  the  CDM.  Proceed  as 
follows: 

$  UFI  CDM/CDM 

UFI>START  ORAIMP.DAT 

UFI>EXIT 

2.  Using  NDDL,  run  the  Impact  meta  data  into  the  CDM.  Proceed 
as  follows: 

$  NDDL  NDDLIMP.DAT 

Examine  NDDLIMP.OUT  to  assure  that  all  NDDL  commands 
completed  successfully. 

3.  Precompile  and  compile  the  NDML-embedded  source  code. 
Proceed  as  follows: 

$@BLDIMP 

PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S 


NAME  OF  THE  APPLICATION> : IMPACT 
File:  ALGX 

File:  AUCX 


File:  TRUV 

NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED 

BEGIN  COMPILING  GENERATED  CODE 

RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  IMPACT. MSG 

4.  Repeat  step  3  with  IMPACT2  as  the  name  of  the  application. 

5.  Execute  the  procedure  file  LNKIMP.COM  to  generate  the 
RP-MAIN,  compile  the  RP-MAIN,  and  place  in  GENOLB,  generate 
the  opt  files  and  link  the  application. 


$  @LNKIMP 


UM  620341421 
30  September  1990 


5.  Run  the  flan  exectuable  using  the  file  CDMIMP.FDL.  Enter 
[$FLAN  CDMIMP.FDL] 

The  form  definition  files  will  be: 

CDMIMP.FD 
IMPACTl.FD 
IMPACT2 . FD 
TRACE l.FD 
TRACE2 . FD 

6.  Define  the  CDM  Impact  Function  using  the  user  interface 
utility  SYSGEN.  The  name  of  the  function  is  CDMIMPACT.  The 
application  is  GRCDMIMPZZ,  and  the  username,  password  and 
role  is  CDM. 

The  following  pages  contain  listings  for: 

BLDIMP.COM 

LNKIMP.COM 
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$ ! 

$!  BLDNDDL.COM 

$  1 

$!  RECEIVE  A  TEST  FILE  OF  PRC'S  AND  PRECOMPILE  AND  COMPILE  THEM 

$! 

$WS:=  WRITE  SYS$OUTPUT 

$DEFINE  IISSGLIB  "CDMDIR: [TOOLS . IMPACT] GENOLB . OLB" 

$WS  "PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S" 

$WS  " - " 

$!  read  an  input  file  containing  names  of  modules  to  be  precompiled 

$! 

$INQUIRE  AP  "  NAME  OF  THE  APPLICATION>" 

$  CREATE  ' AP ' . DAT 
$  OPEN/WRITE  NDMLIN  'AP'.IN 

$  OPEN/READ  NDDLIN  CDMDIR: [TOOLS. IMPACT] 'AP' .TST 
$NEXT: 

$  READ/END_OF_FILE=INDONE  NDDLIN  FILE 
$  WS  "FILE: ' ' File' " 

$  APPEND  'FILE '.PRC  'AP'.DAT 
$  GOTO  NEXT 
$  INDONE: 

$  WRITE  NDMLIN  "CDMIMP  VAX","  ",AP,".DAT  ",AP,".ERR  " , "CDM/CDM" , "  FD=N" 
$  CLOSE  NDMLIN 
$  CLOSE  NDDLIN 
$! 

$!  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
$!  GO  AHEAD  AND  RUN  IT: 

$ ! 

$  ASSIGN/USER_MODE  SYSSCOMMAND  SYS$INPUT 
$  ASSIGN  'AP'.IN  NDML 
$  ASSIGN  'AP’.OUT  SYS$OUTPUT 
$  RUN  CMDIR: [RUNAREA] NDML. EXE 
$ ! 

$  ALLDONE: 

$  DEASSIGN  SYS$OUTPUT 
$! 

$!  check  the  .out  file  for  errors  in  precompiling 
$1 

$0PEN/READ  EFLE  'AP'.OUT 
$ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  ' Ff LENGTH ( EREC ) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  ' F$EXTRACT (UNI, 1, EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ''AP'  HAS  ''UN2'  UNSUCCESSFUL  ROUTINES" 

$WS  "CHECK  THE  ''AP'.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 
$COMPERR: 

$WS  "PRECOMPILE  FAILED" 

$GOTO  EXIT 

$! 

$!  the  precompile  was  successful,  compile  the  code 

$ ! 

$  NDMLGOOD: 
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$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED" 

$WS  "BEGIN  COMPILING  GENERATED  CODE" 

$  NDMLGDRD; 

$  READ/END_OF_FILE  =  COMPERR  EFLE  EREC 
$  LENG  =  'F$LENGTH(EREC) ' 

$  UN  =  'F$LOCATE(" COMPILE  ALL  CODE",  EREC)' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NDMLGDRD 

$! 

$ASSIGN  'AP'.MSG  SYS$OUTPUT 
$UN1  =  'UN'  -  34 
$NNAM:='F$EXTRACT(UN1,30,EREC) ' 

$CLOSE  EFLE 
$  @'NNAM' 

‘?V«?SOTTTPTTT 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  ''AP'.MSG" 
$EXIT: 

$DEFINE  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 
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$  1 

$!  LNKIMP.COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$ ! 

$!  CLONED  WITH  CHANGES  1/20/88  -  Richard  Stewart 

$!  ADD  ADDING  TO  NTM  TABLES ... NEED  TO  REMOVE  FOR  STANDALONE  VERSION 

$  1 

$DEFINE/NOLOG  TOOLOLB  CDMDIR: [TOOLS . IMPA] IMPAO LB 

$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TOOLS . IMPA] GENOLB. OLB" 

$if  pi  .eqs.  "N"  then  goto  linkimp 
$WS="WRITE  SYS$OUTPUT" 

$  LINK: 

$DEASSIGN  SYS$OUTPUT 
$WS  "  " 

$WS  "Beginning  Generation  of  Rp-Main" 

$LUW="CDMIMP" 

$CDM="CDM/CDM" 

$! 

$!  generate  the  rp-main 

$!  NOTE:  this  is  done  automatically  if  you  link 

$! 

$! 

$!  set  up  .dat  file  to  send  to  genrpd 

$6pen/write  genrpd.dat  genrpd.dat 

$WRITE  GENRPD.DAT  LUW,  "  ",  CDM 
$CLOSE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 

$  WRITE  FDLIN  "IDENT  ""23-FEB-1988  09:49:43  VAX-11  FDL  Editor""" 
$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "SYSTEM" 

$  WRITE  FDLIN  "  SOURCE  VAX/ VMS" 

$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "FILE" 

$  WRITE  FDLIN  "  ALLOCATION  3" 

$  WRITE  FDLIN  "  BEST_TRY_CONTIGUOUS  yes" 

$  WRITE  FDLIN  "  EXTENSION  39" 

$  WRITE  FDLIN  "  ORGANIZATION  sequential" 

$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "RECORD" 

$  WRITE  FDLIN  "  BLOCK_SPAN  yes" 

$  WRITE  FDLIN  "  CARRIAGE_CONTROL  carriage_return" 

$  WRITE  FDLIN  "  FORMAT  fixed" 

$  WRITE  FDLIN  "  SIZE  80" 

$  CLOSE  FDLIN 

$  CONVERT/PAD=%O40/FDL=FIX  GENRPD.DAT  GENRPD.DAT 

$! 

$! 

$!  now  run  genrpd 

$ ! 

$ASSIGN/USER  MODE  SYS$COMMAND  SYS$INPUT 
$ASSIGN  'LUWT.rpd  SYS$0UTPUT 
$RUNGENRPD 

$DEASSIGN  SYS$OUTPUT 
$  DELETE  GENRPD.DAT;*,  FIX.FDL;* 

3  ' 

*r  • 

$!  now  get  the  needed  information  to  compile  the  rp-main (s) 

$  1 

$ASSIGN  'LUW'.RDCOMP  SYS$OUTPUT 
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$GENRPDFLAG  =  0 
$OPEN/READ  EFLE  ' LUW ' . RPD 
$  RDLOOPl 

$READ/ENd1oF  FILE=ENDMAIN  EFLE  EREC 
$  LENG  =  'FfLENGTH(EREC) ' 

$  DBMS  =  'F$ LOCATE ("FOR  DBMS",  EREC)' 

$  UN  =  'F$LOCATE( "STORED  ON",  EREC)' 
$  MN  =  'F$LOCATE( "MODULE",  EREC)' 

$  DB  =  'F$LOCATE("DATA  BASE",  EREC)' 
$  RM  =  'F$LOCATE( "REMOTE/",  EREC)' 

$  HST  =  'F$LOCATE("RUN  AT",  EREC)' 


$ 

IF 

'MN' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVMODNM 

$ 

IF 

'DB' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVDBN 

$ 

IF 

'RM' 

.NES. 

' LENG ' 

THEN 

GOTO 

RMLC 

$ 

IF 

'HST' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVEHST 

$ 

IF 

' DBMS ' 

.NES. 

' LENG ' 

THEN 

GOTO 

SAVE DBMS 

$ 

IF 

'UN' 

.EQS. 

' LENG ' 

THEN 

GOTO 

RDLOOP 

$GENRPDFLAG  =  1 
$UN1  =  'UN'  +  16 

$UNEND  =  ' F$ LOCATE EREC)  -  UNI 
$PL  :=  'F$EXTRACT(UN1,  UNEND,  EREC)' 

$IF  DBMSNM  .EQS.  "ORACLE"  THEN  GOTO  MAINPCC 

$WS  "A  NEW  DBMS  TYPE  MUST  BE  ADDED  TO  THE  MAIN  COMPILE  PART  OF  THIS  PROCE 
$GOTO  EXIT 
$! 

$!  get  the  rp-main  mod  name 

$ ! 

$  SAVMODNM: 

$MN1  =  'MN'  +  7 

$RPMN1  :=  'F$EXTRACT(MN1,  10,  EREC)' 

$LENG  =  ' F$ LENGTH (RPMNl) ' 

$MN2  =  'F$LOCATE("ZZZ",  RPMNl) 

$IF  'MN2'  .EQS.  'LENG'  THEN  MODLOC  =  0 

$IF  'MN2'  .NES.  'LENG'  THEN  MODLOC  =  2 

$RPMN  :=  'F$ EXTRACT (MODLOC,  5,  RPMNl) 

$GOTO  RDLOOP 

$! 

$!  get  the  remote/local  status 

$ ! 

$  RMLC: 

$RM1  =  'RM'  +  13 

$RMSW  :=  'F$EXTRACT(RM1,  1,  EREC) ' 

$GOTO  RDLOOP 

$! 

$!  get  the  database  name 

$  1 

$  SAVDBN : 

$DB1  =  'DB'  +  10 

$DBN  :=  'F$EXTRACT(DB1,  30,  EREC)' 

$GOTO  RDLOOP 

$! 

$ !  get  the  host  name 

$! 

$  SAVEHST: 

$HST1  =  'HST'  +  7 

$HSTNM  :=  ' F$EXTRACT (HSTl ,  3,  EREC)' 

$GOTO  RDLOOP 

$! 

$ !  get  the  dbms  name 
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$ ! 

$  SAVEDBMS : 

$DBMS1  =  'DBMS'  +  9 

$DBMSNM  :=  ' F$EXTRACT (DBMSl ,  30,  EREC) 

$GOTO  RDLOOP 
$! 

$! 

$!  oracle  precompile  the  rp-main  (if  needed) 

$ ! 

$  MAINPCC: 

$PCC  INAME= ' PL ' . TMP  LNAME= ' PL ' . ERR  USERI D= ' CDM '  - 
ONAME= ' PL ' . COB  INCLUDE=SYS$ORACLE :  HOST=COB74  MAXLITERAL=160  REBIND=YES 
$ON  ERROR  THEN  MS  "ORACLE  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 

$COBOL/ANSI_FORMAT/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/OBJECT= ' PL ' . OBJ  - 
/ FI PS=7 4/NOLIST/ CHECK=ALL/STANDARD=(SYNTAX)/DEBUG=ALL  'PL' .COB 
$ON  ERROR  THEN  WS  "COBOL  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 
$LIB/REPLACE  IISSGLIB  'PL'. OBJ 
$! DELETE  'PL'. OBJ;* 

$DELETE  'PL '.COB;* 

$DELETE  'PL '.ERR;* 

$! 

$!  Compile  the  rpmain.c 
$! 


$vcc/debug/NOLIST/show= ( include) /standard=portable  - 

/noopt/OBJECT=CDMDIR: [TOOLS. IMPA]RPMAIN. OBJ/ DEFINE=VAX  RPMAIN.C 
$DELETE  RPMAIN.C;* 

$GOTO  RDLOOP 

$! 

$!  done  generating  rp-main 

$*  ENDMAIN: 

$CLOSE  EFLE 
$DEASSIGN  SYS$OUTPUT 

$IF  GENRPDFLAG  .EQ.  0  THEN  GOTO  MAINERR 
$WS  "  " 

$WS  "GENERATION  OF  REQUEST  PROCESSOR  MAIN  COMPLETE" 

$GOTO  STARTLINK 

$! 

$!  there  was  an  error  in  generating  the  rp-main 
$  1 

$  MAINERR: 

$WS  "THE  GENRPD  HAD  ERRORS.  EXAMINE  "LUW'.RPD" 

$GOTO  EXIT 
$STARTLINK: 

$WRITE  SYS$OUTPUT  "  -  LINKING  CDMIMP.EXE  " 

$  ASSIGN  CDMIMP.LINK  SYS$OUTPUT 

$! 

$ ! 

$!  inquire  p5  "ENTER  TWO  LETTER  NTM  DIRECTORY  PREFIX  " 

$!  inquire  p6  "ENTER  NTM  CLUSTER  FOR  THIS  RP  (TIV  OR  UIV)  " 

$! 

$P5  =  "GR" 

$P6  =  "UIV" 


$P1  =  "CDMIMP" 
$! 

$!  NTMTAB.COM 
$! 
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$!  15-APR-87 

$!  M.  DENMAN 

$  1 

$!  UPDATE  NTM  TABLES  APITBL.DAT,  APTTBL.DAT,  ACTTBL.DAT 

$! 

$! 

$  FLAG=0 
$  P7=P5+P1 

$  OPEN/READ  APITBL.DAT  CMDIR: [RUNAREA] APITBL. DAT 
$  RDl : 

$  READ/END_OF_FILE=CHK  APITBL.DAT  ENTRY 
$  RPND=F$EXTRACT( 0,8, ENTRY) 

$  IF  RPND  .NES.  P7  THEN  GOTO  RDl 
$  FLAG=1 
$  CHK: 

$  CLOSE  APITBL.DAT 
$  IF  FLAG  .NES.  0  THEN  GOTO  NOUPD 
$  GOTO  UPD 
$  NOUPD: 

$  WRITE  SYS$OUTPUT  ”  " 

$  WRITE  SYS$OUTPUT  "RP  MAIN  '',P1,”  ALREADY  IN  NTM  TABLES" 
$  WRITE  SYS$OUTPUT  "  " 

$  GOTO  LINKIMP 
$  UPD: 

$  RPAPI=P7+"ZZ"+P6+"1" 

$  RPAPT=P1+"ZZ9999010120001130N0" 

$  OPEN/ APPEND  APITBL.DAT  CMDIR: [RUNAREA] APITBL. DAT 
$  OPEN/APPEND  APTTBL.DAT  CMDIR: [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "THREE  NTM  TABLES  UPDATED  WITH  RP  " , PI 
$  WRITE  SYS$OUTPUT  "  " 

$ ! 

$!DEFINE  CDMROLB  "CDMDIR: [ CDMR] CDMROLB" 

$LINKIMP: 

$@SYS$ORACLE:LFOR  CMDIR: [RUNAREA] CDMIMPZZ  - 
CDMDIR; [TOOLS . IMPA] CDMIMP. OBJ, - 
CDMDIR: [SHARE]SHAROLB/INC=(NDDLYTB) 

CDMDIR: [TOOLS . IMPA] RPMAIN. OBJ , - 
CDMDIR: [COM] CDMI/OPTIONS , - 
SYS$ORACLE:SQLLIB/LIB,  - 
CDMDIR : [ COM ] CDMUI . OPT/OPT , - 
CDMDIR: [SHARE]SHAROLB/LIB,- 
CDMDIR: [COM] CDMNTM. OPT/OPTIONS  SM 
$DEASSIGN  SYS$OUTPUT 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$EXIT; 

$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 

$DEASSIGN  TOOLOLB 

$! 
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